home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / tpstuff1.arc / TPFCOPY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-10-17  |  688 b   |  29 lines
  1.  
  2.     PROGRAM   FILECOPY;
  3.  
  4.     CONST
  5.       RECSIZE         = 128;
  6.       BUFSIZE         = 200;
  7.  
  8.     VAR
  9.       SOURCE , DEST , : FILE;
  10.       SOURCENAME,DESTNAME : STRING [14];
  11.       BUFFER : ARRAY [ 1..RECSIZE,1..BUFSIZE ] OF BYTE;
  12.       RECSREAD : INTEGER;
  13.    BEGIN
  14.      WRITE (' COPY FROM: ');
  15.      READLN ( SOURCENAME );
  16.      ASSIGN ( SOURCE , SOURCENAME );
  17.      RESET ( SOURCE );
  18.      WRITE ('       TO:  ');
  19.      READLN (DESTNAME);
  20.      ASSIGN (DEST,DESTNAME);
  21.      REWRITE (DEST);
  22.        REPEAT
  23.        BLOCKREAD (SOURCE,BUFFER,BUFSIZE,RECSREAD);
  24.        BLOCKWRITE(DEST,BUFFER,RECSREAD);
  25.      UNTIL RECSREAD = 0;
  26.      CLOSE(SOURCE);CLOSE(DEST);
  27.      END.
  28.  
  29.